home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
lantas.zip
/
LANOS.INT
< prev
next >
Wrap
Text File
|
1992-01-02
|
8KB
|
147 lines
{
╔════════════════════════════════════════════════════════════════════════╗
║ UNIT NetBios ║
║ ║
║ Unit to support LANTastic NOS-Calls out from Turbo Pascal ║
╟────────────────────────────────────────────────────────────────────────╢
║ Author : O. Rehmann ║
║ Compiler : Turbo Pascal 6.0 ║
║ OS : MS-DOS 5.0 ║
║ Last Edit : 01-02-1992 ║
║ Version : 1.0 ║
╚════════════════════════════════════════════════════════════════════════╝
}
UNIT LANOS;
{$M $1000 $0 $0}
{$R- }
INTERFACE
USES DOS;
{$I NOS.INC}
CONST MultiplexINT = $2F;
ALT_LANOS_INT = $2A;
DOS_LANOS_INT = $21;
TYPE
PRINTER_MODE = (COMBINE,SEPARATE,FLUSH); { Enumeration for some Int 21 printer-function
and for some 2A Interface-Calls }
VAR Regs : Registers;
NOSErrno : Word; { NOS-Error; updated after each NOS-Call }
NOS_Message : String; { NOS-Error-Message; updated after
each NOS-Call }
SUPER_REDIR_INSTALLED
: Boolean; { IF REDIR has popup-capability }
REDIR_INSTALLED : Boolean;
SERVER_INSTALLED : Boolean;
LANPUP_INSTALLED : Boolean;
LANOS_Maj : Byte; { Version ID's }
LANOS_Min : Byte;
I,J : Byte;
FUNCTION NOSGetErrorText(tWord : Word) : String;
FUNCTION NOSPresence : Byte;
FUNCTION NOSSharePresence : Boolean;
FUNCTION NOSGetVersion : Word;
FUNCTION NOS_Check2AInterface : Boolean;
{══════════════════════════════════════════════════════════════════════}
{ Interrupt 21 functions for printers }
{══════════════════════════════════════════════════════════════════════}
FUNCTION NOS_GetPrinterMode : Byte;
PROCEDURE NOS_SetPrinterMode(tMode : Printer_Mode);
PROCEDURE NOS_FlushPrinter;
{══════════════════════════════════════════════════════════════════════}
{ Interrupt 2A functions }
{══════════════════════════════════════════════════════════════════════}
PROCEDURE _2A_SetPrinterMode(tMode : Printer_Mode);
{══════════════════════════════════════════════════════════════════════}
{ MS-DOS compatible Network-Calls }
{══════════════════════════════════════════════════════════════════════}
FUNCTION GetMachineName : String;
PROCEDURE NOSSetPrinterSetup(Index,Len : Integer; Buffer : Pointer);
PROCEDURE NOSGetPrinterSetup(Index,Len : Integer; Buffer : Pointer);
PROCEDURE NOSGetRedirDevice(Index : Integer; VAR DevName,NetPath : String; VAR DevType : Byte);
PROCEDURE NOSRedirDevice(DevType : Byte; DevName,NetPath : String);
PROCEDURE NOSCancelRedir(DevName : String);
{══════════════════════════════════════════════════════════════════════}
{ LANTASTIC extended System-Calls }
{══════════════════════════════════════════════════════════════════════}
PROCEDURE NOSGetLogin(VAR Index : Word; VAR Login : String; VAR Adapter : Byte);
PROCEDURE NOSLogin(Server,Username,Password : String;Adapter : Byte);
PROCEDURE NOSLogout(Server : String);
PROCEDURE NOSGetUserName(VAR Index : Word;VAR Username : String;VAR Adapter : Byte);
PROCEDURE NOSGetServer(VAR Index : Word;VAR Server : String;VAR Adapter : Byte);
PROCEDURE NOSChangePassword(Server,OldPassword,NewPassword : String);
PROCEDURE NOSDisable(Server,Password : String);
PROCEDURE NOSGetAccount(VAR Account : user_account; Server : String);
PROCEDURE NOSLogoutAll;
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSCopyFile(VAR Amount : DWORD;sourcefile,targetfile : String;VAR Error : Word);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSSendMsg(VAR Buffer : message_buffer);
PROCEDURE NOSGetMsg (VAR Buffer : message_buffer);
PROCEDURE NOSGetMsgFlag (VAR Flag : Byte);
PROCEDURE NOSSetMsgFlag (VAR Flag : Byte);
PROCEDURE NOSPopUpMsg(Ticks : Word;Line : Byte);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSGetQueue(VAR Index : Word; VAR Queue : queue_entry; Server : String);
PROCEDURE NOSSetQueue(VAR Handle : Word; VAR Queue : queue_entry);
PROCEDURE NOSControlQueue(VAR Printer : Word; Cmd : Byte; Server : String; VAR Seq : DWORD);
PROCEDURE NOSGetStatus(VAR Printer : Word; VAR Buffer : PS; Server : String);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSGetStreamInfo(VAR Index : Word; VAR Stream : logical_stream; Server : String);
PROCEDURE NOSSetStreamInfo(VAR Index : Word; VAR Stream : logical_stream; Server : String);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSCreateAudit(Code,Reason,Server : String);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSGetUserInfo(VAR Index : Word; VAR User : active_user_entry; Server : String);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSGetDirInfo(Resource,Server : String;VAR ResDef : String;VAR ACL : Word);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSGetUserAcct(VAR Index : Word;VAR Username : String;Server : String);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSTranslatePath(VAR OutputPath,InputPath : String; Mode : Word);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSCreateIndir(RelativePath,IndirPath : String);
PROCEDURE NOSGetIndir(VAR IndirFile,IndirContens : String);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSGetTime(VAR _Time : time_block; Server : String);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSShutDown(Reason,Server : String;Mins,Option : Word);
PROCEDURE NOSCancelShutDown(Server : String);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSStuffServerBuffer(Stuff,Server : String);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSGetLPTTimeout(VAR Ticks : Word);
PROCEDURE NOSSetLPTTimeout(Ticks : Word);
{────────────────────────────────────────────────────────────────────────────────────────────────}
PROCEDURE NOSGetDOSVector(VAR Vector : Pointer);
PROCEDURE NOSSetDOSVector(Vector : Pointer);
PROCEDURE NOSGetMsgVector(VAR Vector : Pointer);
PROCEDURE NOSSetMsgVector(Vector : Pointer);